object fmState: TfmState
  Left = 0
  Top = 0
  Caption = 'State'
  ClientHeight = 308
  ClientWidth = 404
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poOwnerFormCenter
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 93
    Top = 12
    Width = 39
    Height = 13
    Caption = '&Country'
  end
  object Label2: TLabel
    Left = 106
    Top = 39
    Width = 26
    Height = 13
    Caption = '&State'
  end
  object Label3: TLabel
    Left = 8
    Top = 66
    Width = 124
    Height = 13
    Caption = '&Abbriviation (Short Name)'
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 139
    Width = 404
    Height = 169
    Align = alBottom
    DataSource = dsState
    TabOrder = 7
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Tahoma'
    TitleFont.Style = []
    OnDblClick = DBGrid1DblClick
    OnTitleClick = DBGrid1TitleClick
    Columns = <
      item
        Expanded = False
        FieldName = 'ID'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -11
        Title.Font.Name = 'Tahoma'
        Title.Font.Style = [fsBold]
        Width = 30
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ABBRIVIATION'
        Title.Caption = 'Abbr.'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -11
        Title.Font.Name = 'Tahoma'
        Title.Font.Style = [fsBold]
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'STATE'
        Title.Caption = 'State'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -11
        Title.Font.Name = 'Tahoma'
        Title.Font.Style = [fsBold]
        Width = 200
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'COUNTRY_ABBRIVIATION'
        Title.Caption = 'Country Abbr.'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -11
        Title.Font.Name = 'Tahoma'
        Title.Font.Style = [fsBold]
        Width = 90
        Visible = True
      end>
  end
  object btnClose: TButton
    Left = 312
    Top = 8
    Width = 75
    Height = 25
    Cancel = True
    Caption = 'C&lose'
    TabOrder = 6
    OnClick = btnCloseClick
  end
  object txtState: TEdit
    Left = 138
    Top = 36
    Width = 145
    Height = 21
    AutoSize = False
    MaxLength = 255
    TabOrder = 0
    OnEnter = txtStateEnter
  end
  object txtAbbr: TEdit
    Left = 138
    Top = 63
    Width = 47
    Height = 21
    AutoSize = False
    CharCase = ecUpperCase
    MaxLength = 4
    TabOrder = 1
    OnEnter = txtAbbrEnter
  end
  object btnNew: TButton
    Left = 43
    Top = 98
    Width = 75
    Height = 25
    Caption = '&New'
    TabOrder = 2
    OnClick = btnNewClick
  end
  object btnDelete: TButton
    Left = 205
    Top = 98
    Width = 75
    Height = 25
    Caption = '&Delete'
    TabOrder = 4
    OnClick = btnDeleteClick
  end
  object btnSave: TButton
    Left = 124
    Top = 98
    Width = 75
    Height = 25
    Caption = '&Save'
    Default = True
    TabOrder = 3
    OnClick = btnSaveClick
  end
  object btnRefresh: TButton
    Left = 286
    Top = 98
    Width = 75
    Height = 25
    Caption = '&Refresh'
    TabOrder = 5
    OnClick = btnRefreshClick
  end
  object dbcbCountry: TDBLookupComboBox
    Left = 138
    Top = 8
    Width = 145
    Height = 21
    KeyField = 'ABBRIVIATION'
    ListField = 'COUNTRY'
    ListSource = dsCountry
    TabOrder = 8
  end
  object chkFiltered: TCheckBox
    Left = 224
    Top = 65
    Width = 59
    Height = 17
    Caption = '&Filtered'
    Checked = True
    State = cbChecked
    TabOrder = 9
    OnClick = chkFilteredClick
  end
  object IBDatabase1: TIBDatabase
    DatabaseName = 'C:\Invoice Managment - Delphi\invoicemanager.fdb'
    Params.Strings = (
      'user_name=sysdba'
      'password=masterkey')
    LoginPrompt = False
    DefaultTransaction = IBTransaction1
    ServerType = 'IBServer'
    TraceFlags = [tfQExecute, tfError, tfStmt, tfConnect, tfTransact]
    Left = 264
    Top = 152
  end
  object IBTransaction1: TIBTransaction
    DefaultDatabase = IBDatabase1
    Left = 344
    Top = 152
  end
  object fbCountry: TIBTable
    Database = IBDatabase1
    Transaction = IBTransaction1
    CachedUpdates = True
    FieldDefs = <
      item
        Name = 'ID'
        DataType = ftInteger
      end
      item
        Name = 'ABBRIVIATION'
        Attributes = [faRequired]
        DataType = ftString
        Size = 4
      end
      item
        Name = 'COUNTRY'
        Attributes = [faRequired]
        DataType = ftString
        Size = 255
      end>
    IndexDefs = <
      item
        Name = 'UNQ1_COUNTRY'
        Fields = 'ABBRIVIATION;COUNTRY'
        Options = [ixUnique]
      end
      item
        Name = 'PK_COUNTRY'
        Fields = 'ID'
        Options = [ixUnique]
      end
      item
        Name = 'UNQ2_COUNTRY'
        Fields = 'ABBRIVIATION'
        Options = [ixUnique]
      end>
    StoreDefs = True
    TableName = 'COUNTRY'
    Left = 264
    Top = 208
  end
  object dsCountry: TDataSource
    AutoEdit = False
    DataSet = fbCountry
    Left = 264
    Top = 256
  end
  object dsState: TDataSource
    AutoEdit = False
    DataSet = fbState
    Left = 320
    Top = 256
  end
  object fbState: TIBTable
    Database = IBDatabase1
    Transaction = IBTransaction1
    CachedUpdates = True
    FieldDefs = <
      item
        Name = 'ID'
        DataType = ftInteger
      end
      item
        Name = 'ABBRIVIATION'
        Attributes = [faRequired]
        DataType = ftString
        Size = 4
      end
      item
        Name = 'STATE'
        Attributes = [faRequired]
        DataType = ftString
        Size = 255
      end
      item
        Name = 'COUNTRY_ABBRIVIATION'
        Attributes = [faRequired]
        DataType = ftString
        Size = 4
      end>
    IndexDefs = <
      item
        Name = 'PK_STATE'
        Fields = 'ID'
        Options = [ixUnique]
      end
      item
        Name = 'UNQ1_STATE'
        Fields = 'ABBRIVIATION;STATE'
        Options = [ixUnique]
      end
      item
        Name = 'UNQ2_STATE'
        Fields = 'ABBRIVIATION'
        Options = [ixUnique]
      end>
    IndexFieldNames = 'COUNTRY_ABBRIVIATION'
    MasterFields = 'ABBRIVIATION'
    MasterSource = dsCountry
    StoreDefs = True
    TableName = 'STATE'
    Left = 320
    Top = 208
  end
end
